home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / SMLNET.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  66 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.ids for SMLNET: remote/SMLNET,area,area,...
  7.  :   remote:   argument of "call" command
  8.  :   SMLNET    required
  9.  :   area      number of file area to download
  10.  p?0 findq "\n%remote/smlnet," %lib/%ZCUSER.ids
  11.  if ? split z0 , "";sets s4 %z1
  12.  else set s3 0;set s4 All
  13. nextnet:
  14.  pat
  15.  pat 0 "Type in +,-,#,?, or Name -> "
  16.  pat 1 "ontinue ]]]"
  17.  pat 2 "Q to Quit  ]]]"
  18.  wait -f180;if n bye;ife r nolog close;return
  19.  if !0 sleep 10;mput \b\b\b\b\b\b\b\b\r;goback nextnet
  20.  pat;mput \b\b\b\b\b\b\b\b
  21. loopnet:
  22.  if !%s4 set s3 \b\b\b\bQ
  23.  else if is4,All setn s3 s3+1
  24.  else split s4 , "";sets s3 %z0;sets s4 %z1
  25.  if %s3==1 sets s3 "0%s3"
  26.  mput %s3\r
  27. checkconf:
  28.  pat
  29.  pat 0 "Do you wish to continue"
  30.  pat 1l "new conference messages : "
  31.  pat 2 "\nType -> "
  32.  pat 3 "ontinue ]]]"
  33.  wait -f45;if n bye;ife r nolog close;return
  34.  if 2 goto donenet
  35.  if 1 goto newmsgs
  36.  if !0 sleep 10;mput \b\b\b\b\b\b\b\b\r;goback checkconf
  37.  if !f%n8/%remote%s3.* pat;mput \b\b\b\b\b\b\b\bn\r;goback nextnet
  38.  pat;mput \b\b\b\b\b\b\b\by\r;pat 0 "\nType -> "
  39.  wait -f45;if n bye;ife r nolog close;return
  40.  set s1 n;expand %lib/smlmail.t %n8/%remote%s3.*
  41.  ife is1,y goto extract;else goto skipnet
  42. newmsgs:
  43.  pat;pat 0 "\nType -> "
  44.  pat 1 "ontinue ]]]"
  45.  wait -f45;if n bye;ife r nolog close;return
  46.  if !0 sleep 10;mput \b\b\b\b\b\b\b\b\r;goback newmsgs
  47.  if f%n8/%remote%s3.* expand %lib/smlmail.t %n8/%remote%s3.*
  48. extract:
  49.  pat;mput "\b\b\b\b\b\b\b\bx  \r";
  50.  pat 0 "\nType -> ";wait -f180;if n bye;ife r nolog close;return
  51.  pat;mput "\b\b\b\b\b\b\b\b\b\b\bd z z\r";pat 0l "\nSending"
  52.  wait -f420;if n bye;ife r nolog close;return
  53.  ife r w;ena -!Z;pat;pat 0i "rz\r**\030";wait -F15;if !c bye;ife r nolog close;return
  54.  sets s2 %plog;if %plog setc plog "%n9/%remote\&xf.log"
  55.  sets s1 %dirrx;sets dirrx "%tmp/";rz -ym %remote%s3.zip;sets dirrx %s1
  56.  sets plog %s2;pat;pat 0 ") your Extract File ("
  57.  wait -f180;if n bye;ife r nolog close;return
  58.  obey "!~PKUNZIP -c %tmp/%remote%s3.zip *.TXT |SML2LOG %n9/%remote%s3.log"
  59.  del %tmp/%remote%s3.zip
  60.  pat;mput \b\b\b\b\b\b\b\b\b\b\by\r;pat 0 "\nType -> "
  61.  wait -f45;if n bye;ife r nolog close;return
  62. skipnet:
  63.  pat;mput "\b\b\b\b\b\b\b\bj ";goback loopnet
  64. donenet:
  65.  pat;mput \b\b\b\b\b\b\b\bg\r;return
  66.